package com.digitalxpert.jargle.TestGui;
import java.awt.Color;
import java.awt.Component;
import java.awt.Graphics;
import java.awt.event.MouseAdapter;
import java.awt.event.MouseEvent;
import java.awt.event.MouseListener;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.Comparator;
import java.util.HashMap;
import java.util.Iterator;
import java.util.Map;
import javax.swing.Icon;
import javax.swing.JLabel;
import javax.swing.JTable;
import javax.swing.event.TableModelEvent;
import javax.swing.event.TableModelListener;
import javax.swing.table.AbstractTableModel;
import javax.swing.table.JTableHeader;
import javax.swing.table.TableCellRenderer;
import javax.swing.table.TableColumnModel;
import javax.swing.table.TableModel;

public class TableSorter extends AbstractTableModel{
    protected TableModel tableModel;
    private Row[] viewToModel;
    private int[] modelToView;
    private JTableHeader tableHeader;
    private MouseListener mouseListener;
    private TableModelListener tableModelListener;
    private Map columnComparators = new HashMap();
    private ArrayList<Directive> sortingColumns = new ArrayList<Directive>();
    private ArrayList<Directive> definedColumns = new ArrayList<Directive>();
    public static final int DESCENDING = -1;
    public static final int NOT_SORTED = 0;
    public static final int ASCENDING = 1;
    private static Directive EMPTY_DIRECTIVE = new Directive(-1, NOT_SORTED);
    public static final Comparator COMPARABLE_COMAPRATOR = new Comparator(){
        public int compare(Object o1, Object o2){
            return ((Comparable) o1).compareTo(o2);
        }
    };
    public static final Comparator LEXICAL_COMPARATOR = new Comparator(){
        public int compare(Object o1, Object o2){
            return o1.toString().compareTo(o2.toString());
        }
    };
    public TableSorter(){
        this.mouseListener = new MouseHandler();
        this.tableModelListener = new TableModelHandler();
    }
    public TableSorter(TableModel tableModel){
        this();
        setTableModel(tableModel);
    }
    public TableSorter(TableModel tableModel, JTableHeader tableHeader){
        this();
        setTableHeader(tableHeader);
        setTableModel(tableModel);
    }
    private void clearSortingState(){
        viewToModel = null;
        modelToView = null;
    }
    public TableModel getTableModel(){
        return tableModel;
    }
    public void setTableModel(TableModel tableModel){
        if(this.tableModel != null){
            this.tableModel.removeTableModelListener(tableModelListener);
        }
        this.tableModel = tableModel;
        if(this.tableModel != null){
            this.tableModel.addTableModelListener(tableModelListener);
        }
        clearSortingState();
        fireTableStructureChanged();
    }
    public JTableHeader getTableHeader(){
        return tableHeader;
    }
    public void setTableHeader(JTableHeader tableHeader){
        if(this.tableHeader != null){
            this.tableHeader.removeMouseListener(mouseListener);
            TableCellRenderer defaultRenderer = this.tableHeader.getDefaultRenderer();
            if(defaultRenderer instanceof SortableHeaderRenderer){
                this.tableHeader.setDefaultRenderer(((SortableHeaderRenderer) defaultRenderer).tableCellRenderer);
            }
        }
        this.tableHeader = tableHeader;
        if(this.tableHeader != null){
            this.tableHeader.addMouseListener(mouseListener);
            this.tableHeader.setDefaultRenderer(new SortableHeaderRenderer(this.tableHeader.getDefaultRenderer()));
        }
    }
    public boolean isSorting(){
        return sortingColumns.size() != 0;
    }
    private Directive getDirective(int column){
        for(Directive directive : sortingColumns){
            if(directive.column == column){
                return directive;
            }
        }
        return EMPTY_DIRECTIVE;
    }
    public int getSortingStatus(int column){
        return getDirective(column).direction;
    }
    private void sortingStatusChanged(){
        clearSortingState();
        fireTableDataChanged();
        if(tableHeader != null){
            tableHeader.repaint();
        }
    }
    public void setSortingStatus(int column, int status){
        Directive directive = getDirective(column);
        if(directive != EMPTY_DIRECTIVE){
            sortingColumns.remove(directive);
        }
        if(status != NOT_SORTED){
            sortingColumns.add(new Directive(column, status));
        }
        sortingStatusChanged();
    }
    public void setDefineSortingStatus(int column, int status){
        if(!hasDefinedDirective(column)){
            definedColumns.add(new Directive(column, status));
        }
        sortingStatusChanged();
    }
    private Boolean hasDefinedDirective(int column){
        for(Directive directive : definedColumns){
            if(directive.column == column){
                return true;
            }
        }
        return false;
    }
    protected Icon getHeaderRendererIcon(int column, int size){
        Directive directive = getDirective(column);
        if(directive == EMPTY_DIRECTIVE){
            return null;
        }
        return new Arrow(directive.direction == DESCENDING, size, sortingColumns.indexOf(directive));
    }
    private void cancelSorting(){
        sortingColumns.clear();
        sortingStatusChanged();
    }
    public void setColumnComparator(Class type, Comparator comparator){
        if(comparator == null){
            columnComparators.remove(type);
        }else{
            columnComparators.put(type, comparator);
        }
    }
    protected Comparator getComparator(int column){
        Class columnType = tableModel.getColumnClass(column);
        Comparator comparator = (Comparator) columnComparators.get(columnType);
        if(comparator != null){
            return comparator;
        }
        if(Comparable.class.isAssignableFrom(columnType)){
            return COMPARABLE_COMAPRATOR;
        }
        return LEXICAL_COMPARATOR;
    }
    private Row[] getViewToModel(){
        if(viewToModel == null){
            int tableModelRowCount = tableModel.getRowCount();
            viewToModel = new Row[tableModelRowCount];
            for(int row = 0; row < tableModelRowCount; row++){
                viewToModel[row] = new Row(row);
            }
            if(isSorting()){
                Arrays.sort(viewToModel);
            }
        }
        return viewToModel;
    }
    public int modelIndex(int viewIndex){
        return getViewToModel()[viewIndex].modelIndex;
    }
    private int[] getModelToView(){
        if(modelToView == null){
            int n = getViewToModel().length;
            modelToView = new int[n];
            for(int i = 0; i < n; i++){
                modelToView[modelIndex(i)] = i;
            }
        }
        return modelToView;
    }
    // implements methods
    public int getRowCount(){
        return (tableModel == null) ? 0 : tableModel.getRowCount();
    }
    public int getColumnCount(){
        return (tableModel == null) ? 0 : tableModel.getColumnCount();
    }
    public String getColumnName(int column){
        return tableModel.getColumnName(column);
    }
    public Class getColumnClass(int column){
        return tableModel.getColumnClass(column);
    }
    public boolean isCellEditable(int row, int column){
        return tableModel.isCellEditable(modelIndex(row), column);
    }
    public Object getValueAt(int row, int column){
        return tableModel.getValueAt(modelIndex(row), column);
    }
    public void setValueAt(Object aValue, int row, int column){
        tableModel.setValueAt(aValue, modelIndex(row), column);
    }
    // Helper classes
    private class Row implements Comparable{
        private int modelIndex;
        public Row(int index){
            this.modelIndex = index;
        }
        public int compareTo(Object o){
            int row1 = modelIndex;
            int row2 = ((Row) o).modelIndex;
            for(Iterator it = sortingColumns.iterator(); it.hasNext();){
                Directive directive = (Directive) it.next();
                int column = directive.column;
                Object o1 = tableModel.getValueAt(row1, column);
                Object o2 = tableModel.getValueAt(row2, column);
                int comparison = 0;
                if(o1 == null && o2 == null){
                    comparison = 0;
                }else if(o1 == null){
                    comparison = -1;
                }else if(o2 == null){
                    comparison = 1;
                }else{
                    comparison = getComparator(column).compare(o1, o2);
                }
                if(comparison != 0){
                    return directive.direction == DESCENDING ? -comparison : comparison;
                }
            }
            return 0;
        }
    }
    private class TableModelHandler implements TableModelListener{
        public void tableChanged(TableModelEvent e){
            if(!isSorting()){
                clearSortingState();
                fireTableChanged(e);
                return;
            }
            if(e.getFirstRow() == TableModelEvent.HEADER_ROW){
                cancelSorting();
                fireTableChanged(e);
                return;
            }
            int column = e.getColumn();
            if(e.getFirstRow() == e.getLastRow() && column != TableModelEvent.ALL_COLUMNS && getSortingStatus(column) == NOT_SORTED
                    && modelToView != null){
                int viewIndex = getModelToView()[e.getFirstRow()];
                fireTableChanged(new TableModelEvent(TableSorter.this, viewIndex, viewIndex, column, e.getType()));
                return;
            }
            clearSortingState();
            fireTableDataChanged();
            return;
        }
    }
    private class MouseHandler extends MouseAdapter{
        public void mouseClicked(MouseEvent e){
            JTableHeader h = (JTableHeader) e.getSource();
            TableColumnModel columnModel = h.getColumnModel();
            int viewColumn = columnModel.getColumnIndexAtX(e.getX());
            int column = columnModel.getColumn(viewColumn).getModelIndex();
            if(column != -1 && !hasDefinedDirective((int) column)){
                int status = getSortingStatus(column);
                if(!e.isControlDown()){
                    cancelSorting();
                }
                status = status + (e.isShiftDown() ? -1 : 1);
                status = (status + 4) % 3 - 1;
                setSortingStatus(column, status);
            }
        }
    }
    private static class Arrow implements Icon{
        private boolean descending;
        private int size;
        private int priority;
        public Arrow(boolean descending, int size, int priority){
            this.descending = descending;
            this.size = size;
            this.priority = priority;
        }
        public void paintIcon(Component c, Graphics g, int x, int y){
            Color color = c == null ? Color.GRAY : c.getBackground();
            int dx = (int) (size / 2 * Math.pow(0.8, priority));
            int dy = descending ? dx : -dx;
            y = y + 5 * size / 6 + (descending ? -dy : 0);
            int shift = descending ? 1 : -1;
            g.translate(x, y);
            g.setColor(color.darker());
            g.drawLine(dx / 2, dy, 0, 0);
            g.drawLine(dx / 2, dy + shift, 0, shift);
            g.setColor(color.brighter());
            g.drawLine(dx / 2, dy, dx, 0);
            g.drawLine(dx / 2, dy + shift, dx, shift);
            if(descending){
                g.setColor(color.darker().darker());
            }else{
                g.setColor(color.brighter().brighter());
            }
            g.drawLine(dx, 0, 0, 0);
            g.setColor(color);
            g.translate(-x, -y);
        }
        public int getIconWidth(){
            return size;
        }
        public int getIconHeight(){
            return size;
        }
    }
    private class SortableHeaderRenderer implements TableCellRenderer{
        private TableCellRenderer tableCellRenderer;
        public SortableHeaderRenderer(TableCellRenderer tableCellRenderer){
            this.tableCellRenderer = tableCellRenderer;
        }
        public Component getTableCellRendererComponent(JTable table, Object value, boolean isSelected, boolean hasFocus, int row, int column){
            Component c = tableCellRenderer.getTableCellRendererComponent(table, value, isSelected, hasFocus, row, column);
            if(c instanceof JLabel){
                JLabel l = (JLabel) c;
                l.setHorizontalTextPosition(JLabel.LEFT);
                int modelColumn = table.convertColumnIndexToModel(column);
                l.setIcon(getHeaderRendererIcon(modelColumn, l.getFont().getSize()));
            }
            return c;
        }
    }
    private static class Directive{
        private int column;
        private int direction;
        public Directive(int column, int direction){
            this.column = column;
            this.direction = direction;
        }
    }
}